home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
earcd
/
biz
/
swood
/
fw_font_.lha
/
FW_Font-e
/
FontLook.fw
< prev
next >
Wrap
Text File
|
1997-04-27
|
4KB
|
172 lines
/* Optimized with RexxOpt 1.7 */
R='0A'X
Address='FinalW'
Options results
STATUS PORTNAME
FW=result
address=FW
SIGNAL ON BREAK_C
'ShowMessage 2 0 "FontLook V2.72" "for individual fonts..." "(©) Heiko Schröder - 97/04/27" ":-)" "Ok" "(-:"'
'ShowMessage 1 1 "A T T E N T I O N !" "The macro needs an empty document!" "Clear the document?" "Yes" "Abort" ""'
if result=2 then call BREAK_C
Cleardoc Force
'ShowMessage 2 0 "codes or layout" "" "" "codes" "layout" ""'
cl=result
'ShowMessage 2 0 "Screen output?" "" "" "normal" "speed" ""'
ba=result
'ShowMessage 1 0 "Do you need perforation signs?" "" "" "Yes" "No" ""'
lm=result
IF ba=2 THEN;DO
status WINDOW
parse VAR result links oben width height minwidth minheight maxwidth maxheight
sizewindow minwidth minheight
End
GetDocItemPrefs Decimal
Punkt=Result
If Punkt="Comma" then DocItemPrefs Decimal Period
Font
a=RC
If a=0 then;do
Type d2c(32)
BackSpace
status FontPath
FullFontName=result
pos=max(index(FullFontName,':'),lastpos('/',FullFontName))
IF (pos~=0) THEN
FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos)
END
IF ba=2 THEN View 20
Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
GraphicTool
LinePrefs LineWt .5
DrawLine 1 2 3.5 20 3.5
DrawLine 1 2 26 20 26
If lm=1 then DrawLine 1 .5 14.85 1 14.85
TextTool
If cl=1 then;do
Do i=0 to 13
SetTab i*1.3+0.8 Right
End
Justify Center
Font Softsans
FontSize 18
Type FontName||R||R
a=0
DO w=1 to 15
Font Softsans
FontSize 8
DO x=a+33 to a+46
Type d2c(9)||x|| d2c(32)|| d2c(x)
END
Type R
Font FontName
FontSize 24
DO x=a+33 to a+46
Type d2c(9)
Type d2c(x)
END
Type R
a=a+14
END
Font Softsans
FontSize 8
DO x=a+33 to a+45
Type d2c(9)||x|| d2c(32)|| d2c(x)
END
Type d2c(9)||R
Font FontName
FontSize 24
DO x=a+33 to a+45
Type d2c(9)
Type d2c(x)
END
Type d2c(9)||R
FontSize 12
Type d2c(9)||R
Font Softsans
FontSize 8
Justify Right
Type Date(O)" - "FullFontName
END
If cl=2 then;do
Justify Center
Font Softsans
FontSize 18
Type FontName||R
Justify Left
Font FontName
FontSize 8
Type R||"This is 8-point type - not easy to read!"||R
FontSize 9
Type "9-Point type is about the smallest readable size."||R
FontSize 10
Type "With 10-point type, we have a normal text size."||R
FontSize 12
Type "With some Fonts, 12-point type is easier to read."||R
FontSize 14
Type "14-point type is good for subheadings."||R
FontSize 16
Type "For larger subheadings, try 16-point type."||R
FontSize 18
Type "18-point type makes nice small headlines."||R
FontSize 24
Type "24-point type is for medium headlines."||R
FontSize 36
Type "36-point is for larger ones."||R
FontSize 48
Type "48-point almost shouts!"||R||R
FontSize 12
Font SoftSans
Type "NORMAL"||R
FontSize 10
Font FontName
Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
Type "The quick brown fox jumps over the lazy dog."||R||R||R
FontSize 12
Font SoftSans
Type "EXTENDED CHARACTERS"||R
FontSize 10
Font FontName
j=0
Do i=1 to 4
Do k=128+j to 159+j
Type d2c(k)
End
Type R
j=j+32
End
Status BodyTextHeight
th=result
FG=26.24-2.113-th
FG=Trunc(FG*8/0.34)
FontSize FG
Type d2c(9)
Font SoftSans
FontSize 8
Type R
Justify Right
Type Date(O)" - "FullFontName
End
call WH
'ShowMessage 2 1 "Whats next?" "" "" "save" "print" "abort"'
If result=1 then Save
If result=2 then Print
END
'ShowMessage 2 0 "Thanx for using." "" "" "@-`-" "Please" ":-))"'
EXIT
BREAK_C:
'ShowMessage 1 1 "Macro aborted..." "" "" "I know..." "" ""'
call WH
address "REXX"
Address command "delete ram:fonts QUIET"
EXIT
WH:
If ba=2 then;do
View
sizewindow width height
End
If Punkt="Comma" then DocItemPrefs DECIMAL Comma
Return